home *** CD-ROM | disk | FTP | other *** search
- /* WIDE AREA INFORMATION SERVER SOFTWARE:
- No guarantees or restrictions. See the readme file for the full standard
- disclaimer.
-
- *
- * Change log:
- * $Log: stringtoany.c,v $
- * Revision 1.3 92/02/27 09:26:14 jonathan
- * seperated =* since some compilers get confused (ULTRIX).
- *
- * Revision 1.2 92/02/16 18:23:52 jonathan
- * Utility to make an any out of a string
- *
- */
-
- main(argc,argv)
- int argc;
- char **argv;
- {
- char c;
- printf("(:any :size %d :bytes #( ", strlen(argv[1]));
- while(c = *argv[1]++) printf("%d ", c);
- printf(") )\n");
- exit(0);
- }
-